Caso voce quereira baixar o Source code (codigo fonte) desse R notebook, clique no botao no canto superior direito chamado de “code” e selecione “download RMD” :)
Fala pessual! Muitas pessoas tem uma preocupacao muito grande com seus seguidores nas redes sociais. Principalmente, muitas pessoas gostam de conferir se seus amigos a seguem de volta. Entretanto, muitos dos aplicativos disponibilizados por terceiros, ou nao sao confiaveis ou nao sao permitidos pelo proprio instagram. Entao, sem mais delongas vou explicar como conferir quem te segue devolta no instagram!
Para fazer isso acesse os seguintes botoes no seu instagram

Aqui temos as contas que nos seguimos. Selecione todas elas, depois copie e cole no R.
Aqui temos as contas que nos seguem… Eu ainda nao tenho nenhuma conta me seguindo ja que eu comecei o meu canal agora… Copie e cole todas as contas no R
Os codigos utilizados no R
Pacotes necessarios:
Para utilizar os codigos voce tem que ter instalado o tityverse no environment do seu R… retire a hashtag do codigo abaixo caso voce nao tenha o tidyverse instalado.
#install.packages("tidyverse")
Checando os outputs
estou_seguindo
[1] "markosian\ngal_gadot\nkarenxcheng\nsamhairwolfryder\nsiphomabona\ntom_juenemann\ninstagram\neu"
meus_seguidores
[1] "eu\nnao"
Criando a funcao
unfollow <-
function(seus_seguidores,
estou_seguindo){
library(tidyverse)
seguindo <- estou_seguindo
seguidores <- seus_seguidores
# Tirando os \n e transformando os valores dos seguidores em strings individuais
seguindo <- str_split(string = seguindo,
pattern = "\n")
seguidores <- str_split(string = seguidores,
pattern = "\n")
#Transformando as lista em vetores
seguindo <- seguindo[[1]]
seguidores <- seguidores[[1]]
#criando um vetor com as contas para deixa de seguir
contas_unfollow <- setdiff(seguindo, seguidores)
contas_unfollow <- sort(contas_unfollow)
# Output da funcao
cat("Essas sao as contas que nao te seguem devolta:",
contas_unfollow)
}
unfollow(seus_seguidores = meus_seguidores,
estou_seguindo = estou_seguindo)
package 㤼㸱tidyverse㤼㸲 was built under R version 4.0.3Registered S3 methods overwritten by 'dbplyr':
method from
print.tbl_lazy
print.tbl_sql
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.3.2 v purrr 0.3.4
v tibble 3.0.3 v dplyr 1.0.2
v tidyr 1.1.2 v stringr 1.4.0
v readr 1.3.1 v forcats 0.5.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag() masks stats::lag()
Essas sao as contas que nao te seguem devolta: gal_gadot instagram karenxcheng markosian samhairwolfryder siphomabona tom_juenemann
LS0tDQp0aXRsZTogIkluc3RhZ3JhbSAtIFF1ZW0gbmFvIHRlIHNlZ3VlIGRlIHZvbHRhPyAtIFByb2dyYW1hbmRvIHVtYSBmdW5jYW8iDQphdXRob3I6ICJSb2RhLCBwb3IgZmF2b3IhIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KQ2FzbyB2b2NlIHF1ZXJlaXJhIGJhaXhhciBvICpTb3VyY2UgY29kZSogKGNvZGlnbyBmb250ZSkgZGVzc2UgKlIgbm90ZWJvb2sqLCBjbGlxdWUgbm8gYm90YW8gbm8gY2FudG8gc3VwZXJpb3IgZGlyZWl0byBjaGFtYWRvIGRlICJjb2RlIiBlIHNlbGVjaW9uZSAiZG93bmxvYWQgUk1EIiA6KQ0KDQo8YnIvPg0KPGJyLz4NCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vY2RuMi52ZWN0b3JzdG9jay5jb20vaS90aHVtYi1sYXJnZS85Ny82Ni9mb2xsb3ctaWNvbi12ZWN0b3ItMjExNzk3NjYuanBnKQ0KPGJyLz4NCjxici8+DQo8YnIvPg0KPGJyLz4NCg0KDQojIyMgRmFsYSBwZXNzdWFsISBNdWl0YXMgcGVzc29hcyB0ZW0gdW1hIHByZW9jdXBhY2FvIG11aXRvIGdyYW5kZSBjb20gc2V1cyBzZWd1aWRvcmVzIG5hcyByZWRlcyBzb2NpYWlzLiBQcmluY2lwYWxtZW50ZSwgbXVpdGFzIHBlc3NvYXMgZ29zdGFtIGRlIGNvbmZlcmlyIHNlIHNldXMgYW1pZ29zIGEgc2VndWVtIGRlIHZvbHRhLiBFbnRyZXRhbnRvLCBtdWl0b3MgZG9zIGFwbGljYXRpdm9zIGRpc3BvbmliaWxpemFkb3MgcG9yIHRlcmNlaXJvcywgb3UgbmFvIHNhbyBjb25maWF2ZWlzIG91IG5hbyBzYW8gcGVybWl0aWRvcyBwZWxvIHByb3ByaW8gaW5zdGFncmFtLiBFbnRhbywgc2VtIG1haXMgZGVsb25nYXMgdm91IGV4cGxpY2FyIGNvbW8gY29uZmVyaXIgcXVlbSB0ZSBzZWd1ZSBkZXZvbHRhIG5vIGluc3RhZ3JhbSENCg0KDQojIyMgUGFyYSBmYXplciBpc3NvIGFjZXNzZSBvcyBzZWd1aW50ZXMgYm90b2VzIG5vIHNldSBpbnN0YWdyYW0NCg0KIVtDcmVkaXRvcyBkYSBpbWFnZW06IEluc3RhZ3JhbV0oaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3JvZGEtcG9yLWZhdm9yL1NlZ3VpZG9yZXNfSW5zdGFncmFtL21haW4vSW1hZ2Vucy9UZWxhJTIwaW5pY2lhbCUyMGluc3RhZ3JhbSUyMC0lMjBzZWd1aWRvcmVzLlBORykNCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yb2RhLXBvci1mYXZvci9TZWd1aWRvcmVzX0luc3RhZ3JhbS9tYWluL0ltYWdlbnMvVGVsYSUyMGluaWNpYWwlMjBpbnN0YWdyYW0lMjAtJTIwc2V0dGluZ3MuUE5HKQ0KDQoNCg0KIVtDcmVkaXRvcyBkYSBpbWFnZW06IEluc3RhZ3JhbV0oaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3JvZGEtcG9yLWZhdm9yL1NlZ3VpZG9yZXNfSW5zdGFncmFtL21haW4vSW1hZ2Vucy9pbnN0YWdyYW0lMjBzZWN1cml0eS5QTkcpDQoNCg0KDQohW0NyZWRpdG9zIGRhIGltYWdlbTogSW5zdGFncmFtXShodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcm9kYS1wb3ItZmF2b3IvU2VndWlkb3Jlc19JbnN0YWdyYW0vbWFpbi9JbWFnZW5zL2FjY291bnQlMjBkYXRhJTIwaW5zdGFncmFtLlBORykNCg0KDQohW0NyZWRpdG9zIGRhIGltYWdlbTogSW5zdGFncmFtXShodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcm9kYS1wb3ItZmF2b3IvU2VndWlkb3Jlc19JbnN0YWdyYW0vbWFpbi9JbWFnZW5zL2FjY291bnRzJTIwZm9sbG93aW5nJTIwaW5zdGFncmFtLlBORykNCg0KDQoNCg0KDQojIyMgQXF1aSB0ZW1vcyBhcyBjb250YXMgcXVlIG5vcyBzZWd1aW1vcy4gU2VsZWNpb25lIHRvZGFzIGVsYXMsIGRlcG9pcyBjb3BpZSBlIGNvbGUgbm8gUi4gDQoNCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yb2RhLXBvci1mYXZvci9TZWd1aWRvcmVzX0luc3RhZ3JhbS9tYWluL0ltYWdlbnMvYWNjb3VudHMlMjBJJTIwZm9sbG93JTIwaW5zdGFncmFtLlBORykNCg0KDQojIyMgQXF1aSB0ZW1vcyBhcyBjb250YXMgcXVlIG5vcyBzZWd1ZW0uLi4gRXUgYWluZGEgbmFvIHRlbmhvIG5lbmh1bWEgY29udGEgbWUgc2VndWluZG8gamEgcXVlIGV1IGNvbWVjZWkgbyBtZXUgY2FuYWwgYWdvcmEuLi4gQ29waWUgZSBjb2xlIHRvZGFzIGFzIGNvbnRhcyBubyBSDQoNCg0KIVtDcmVkaXRvcyBkYSBpbWFnZW06IEluc3RhZ3JhbV0oaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3JvZGEtcG9yLWZhdm9yL1NlZ3VpZG9yZXNfSW5zdGFncmFtL21haW4vSW1hZ2Vucy9hY291b250cyUyMGZvbGxvd2luZyUyMG1lJTIwaW5zdGFncmFtLlBORykNCg0KPGJyLz4NCjxici8+DQoNCiMjIyBPcyBjb2RpZ29zIHV0aWxpemFkb3Mgbm8gUg0KDQoNCiMjIFBhY290ZXMgbmVjZXNzYXJpb3M6DQoNClBhcmEgdXRpbGl6YXIgb3MgY29kaWdvcyB2b2NlIHRlbSBxdWUgdGVyIGluc3RhbGFkbyBvIHRpdHl2ZXJzZSBubyBlbnZpcm9ubWVudCBkbyBzZXUgUi4uLiByZXRpcmUgYSBoYXNodGFnIGRvIGNvZGlnbyBhYmFpeG8gY2FzbyB2b2NlIG5hbyB0ZW5oYSBvIHRpZHl2ZXJzZSBpbnN0YWxhZG8uDQoNCmBgYHtyfQ0KI2luc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIpDQpgYGANCg0KDQoNCiMjIENyaWFuZG8gb3MgdmV0b3JlcyBjb20gb3Mgc2VndWlkb3JlcyBlIHF1ZW0gdm9jZSBlc3RhIHNlZ3VpbmRvDQoNCg0KVXRpbGl6YW5kbyBvcyBkYWRvcyB2b2NlIGNvbnNlZ3VpdSBhY2Vzc2FuZG8gc3VhIGNvbnRhIG5vIGluc3RhZ3JhbQ0KDQpgYGB7cn0NCiMgY29sZSBhcyBjb250YXMgcXVlIHNlZ3VlbSB2YyBhcQ0KDQptZXVzX3NlZ3VpZG9yZXMgPC0gYygiZXUNCm5hbyIpDQpgYGANCg0KYGBge3J9DQojIGNvbGUgYXMgY29udGFzIHF1ZSB2YyBzZWd1ZSBhcQ0KDQplc3RvdV9zZWd1aW5kbyA8LSBjKCJtYXJrb3NpYW4NCmdhbF9nYWRvdA0Ka2FyZW54Y2hlbmcNCnNhbWhhaXJ3b2xmcnlkZXINCnNpcGhvbWFib25hDQp0b21fanVlbmVtYW5uDQppbnN0YWdyYW0NCmV1IikNCmBgYA0KDQoNCiMjIENoZWNhbmRvIG9zIG91dHB1dHMgDQoNCmBgYHtyfQ0KZXN0b3Vfc2VndWluZG8NCmBgYA0KYGBge3J9DQptZXVzX3NlZ3VpZG9yZXMNCmBgYA0KDQojIyBDcmlhbmRvIGEgZnVuY2FvDQoNCmBgYHtyfQ0KdW5mb2xsb3cgPC0NCiAgZnVuY3Rpb24oc2V1c19zZWd1aWRvcmVzLA0KICAgICAgICAgICBlc3RvdV9zZWd1aW5kbyl7DQogICAgbGlicmFyeSh0aWR5dmVyc2UpDQogICAgDQogICAgDQogICAgc2VndWluZG8gPC0gZXN0b3Vfc2VndWluZG8NCiAgICBzZWd1aWRvcmVzIDwtIHNldXNfc2VndWlkb3Jlcw0KICAgIA0KICAgICMgVGlyYW5kbyBvcyBcbiBlIHRyYW5zZm9ybWFuZG8gb3MgdmFsb3JlcyBkb3Mgc2VndWlkb3JlcyBlbSBzdHJpbmdzIGluZGl2aWR1YWlzDQogICAgDQogICAgc2VndWluZG8gPC0gc3RyX3NwbGl0KHN0cmluZyA9IHNlZ3VpbmRvLCANCiAgICAgICAgICAgICAgICAgICAgICBwYXR0ZXJuID0gIlxuIikNCiAgICANCiAgICBzZWd1aWRvcmVzIDwtIHN0cl9zcGxpdChzdHJpbmcgPSBzZWd1aWRvcmVzLCANCiAgICAgICAgICAgICAgICAgICAgICBwYXR0ZXJuID0gIlxuIikNCiAgICANCiAgICAjVHJhbnNmb3JtYW5kbyBhcyBsaXN0YSBlbSB2ZXRvcmVzDQogICAgDQogICAgc2VndWluZG8gPC0gc2VndWluZG9bWzFdXQ0KICAgIHNlZ3VpZG9yZXMgPC0gc2VndWlkb3Jlc1tbMV1dDQogICAgDQogICAjY3JpYW5kbyB1bSB2ZXRvciBjb20gYXMgY29udGFzIHBhcmEgZGVpeGEgZGUgc2VndWlyDQogICAgDQogICAgY29udGFzX3VuZm9sbG93IDwtIHNldGRpZmYoc2VndWluZG8sIHNlZ3VpZG9yZXMpDQogICAgY29udGFzX3VuZm9sbG93IDwtIHNvcnQoY29udGFzX3VuZm9sbG93KQ0KICAgIA0KICAgICMgT3V0cHV0IGRhIGZ1bmNhbw0KICAgIA0KICAgIGNhdCgiRXNzYXMgc2FvIGFzIGNvbnRhcyBxdWUgbmFvIHRlIHNlZ3VlbSBkZXZvbHRhOiIsDQogICBjb250YXNfdW5mb2xsb3cpDQogICAgDQogIH0NCmBgYA0KDQoNCg0KYGBge3J9DQp1bmZvbGxvdyhzZXVzX3NlZ3VpZG9yZXMgPSBtZXVzX3NlZ3VpZG9yZXMsDQogICAgICAgICBlc3RvdV9zZWd1aW5kbyA9IGVzdG91X3NlZ3VpbmRvKQ0KYGBgDQoNCg0KDQoNCjxici8+DQo8YnIvPg0KPGJyLz4NCjxici8+DQoNCg0KDQojIyAqKlNlIHZvY2UgZ29zdG91IGRvIGNvbnRldWRvLCBpbmNyZXZhLXNlIG5vIGNhbmFsIGUgbWUgc2lnYSBubyBHaXRodWIvaW5zdGFncmFtISoqDQoNCjxici8+DQo8YnIvPg0KDQoNCioqQ2FuYWwgUm9kYSwgcG9yIGZhdm9yISoqIGh0dHBzOi8vd3d3LnlvdXR1YmUuY29tL2NoYW5uZWwvVUNzZTFxU3NLNW1PSzlyd2RrZllNY2ZRDQoNCg0KDQoNCioqR2l0aHViKiogaHR0cHM6Ly9naXRodWIuY29tL3JvZGEtcG9yLWZhdm9yDQoNCg0KDQoNCioqSW5zdGFncmFtKiogaHR0cHM6Ly93d3cuaW5zdGFncmFtLmNvbS9yb2RhX3Bvcl9mYXZvcg0KDQoNCg0KDQoNCiFbUm9kYSwgcG9yIGZhdm9yIV0oaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3JvZGEtcG9yLWZhdm9yL0RvY3VtZW50b3MvbWFpbi9Sb2RhJTIwcG9yJTIwZmF2b3IlMjBiYW5uZXIuUE5HKQ0KDQoNCioqUC5TKiogTWUgZGVzY3VscGUgcG9yIHF1YWxxdWVyIGVycm8gb3J0b2dyYWZpY28sIG1ldSB0ZWNsYWRvIG5hbyBwZXJtaXRlIHF1ZSBldSB1c2UgYWNlbnRvcyBuYXMgcGFsYXZyYXMgZSBtZXUgY29tcHV0YWRvciBuYW8gdGVtIGNvcnJldG9yIHBhcmEgcG9ydHVndWVzIDopIA0KDQpTZSB2b2NlIGVzdGl2ZXIgdmlzdWFsaXphbmRvIGVzc2UgZG9jdW1lbnRvIG5vIFIgb3UgUlN0dWRpbyBvcyAiPCJici8iPiIgc2FvIGV4cHJlc3NvZXMgdXNhZGFzIHBhcmEgcHVsYXIgdW1hIGxpbmhhLiANCg0KDQoNCioqTXVpdG8gb2JyaWdhZG8sIGF0ZSBhIHByb3hpbWEhKio=